perm filename COMP.AL0[HAL,HE]1 blob
sn#202096 filedate 1976-02-17 generic text, type T, neo UTF8
;PROG
XPROG
;BLOCK
XMVAR
;
22
;$B1.INIT
24
;$B1._T6
26
;$B1.CARB_GRASP
30
;$B1.CARB
32
;$B1._T5
34
;$B1.PALLET_PLACE
36
;$B1._T4
40
;$B1.PALLET_GRASP
42
;$B1.PALLET
44
;$B1.CARB_SPOT
46
;$B1.PALLET_SPOT
50
;$B1.BASE
52
;$B1.BPARK1
54
0
XMEXP
;$B1.CARB_GRASP
30
;$B1._T6
26
0
L1
56
XJUMP
L2
L1: ;first argument
XGTVAL
;$B1.CARB_GRASP
30
;second argument
;first argument
XGTVAL
;$B1._T6
26
XTINVRT
XTTMUL
XENDCLC
L2: XMEXP
;$B1.CARB
32
;$B1._T6
26
0
L3
60
XJUMP
L4
L3: ;first argument
XGTVAL
;$B1.CARB
32
;second argument
XGTVAL
;$B1._T6
26
XTTMUL
XENDCLC
L4: XMEXP
;$B1.PALLET
44
;$B1._T5
34
0
L5
62
XJUMP
L6
L5: ;first argument
XGTVAL
;$B1.PALLET
44
;second argument
XGTVAL
;$B1._T5
34
XTTMUL
XENDCLC
L6: XMEXP
;$B1.PALLET_GRASP
42
;$B1._T4
40
0
L7
64
XJUMP
L10
L7: ;first argument
XGTVAL
;$B1.PALLET_GRASP
42
;second argument
;first argument
XGTVAL
;$B1._T4
40
XTINVRT
XTTMUL
XENDCLC
L10: XMEXP
;$B1.PALLET
44
;$B1._T4
40
0
L11
66
XJUMP
L12
L11: ;first argument
XGTVAL
;$B1.PALLET
44
;second argument
XGTVAL
;$B1._T4
40
XTTMUL
XENDCLC
L12: ;Assignment
XPUSH
L13
XCHNGE
;$B1.BPARK1
54
;Assignment
XGTVAL
;$B1.BPARK1
54
XCHNGE
;BARM
14
;Assignment
XPUSH
L14
XCHNGE
;BHAND
16
;COBLOCK
XJUMP
L15
L16: ; COSTATEMENT
;Move
XMOVE
L17
4
XTERMINATE
L21: ; COSTATEMENT
;Move
XMOVE
L22
10
XTERMINATE
L15: ; EPILOG OF COBLOCK
XSPROUT
L16
L21
0
;END COBLOCK
;Assignment
XPUSH
L23
XCHNGE
;$B1.BASE
52
;Assignment
;first argument
XGTVAL
;$B1.BASE
52
;second argument
XPUSH
L24
XTTMUL
XCHNGE
;$B1.PALLET_SPOT
50
;Assignment
;first argument
XGTVAL
;$B1.BASE
52
;second argument
XPUSH
L25
XTTMUL
XCHNGE
;$B1.CARB_SPOT
46
;Assignment
XPUSH
L26
XCHNGE
;BHAND
16
;Assignment
XGTVAL
;$B1.PALLET_SPOT
50
XCHNGE
;$B1.PALLET
44
;Affixment
;Assignment
XPUSH
L27
XCHNGE
;$B1._T4
40
XMCLC
64
;$B1.PALLET
44
XMCLC
66
;$B1.PALLET_GRASP
42
;End of affixment
;Affixment
;Assignment
XPUSH
L30
XCHNGE
;$B1._T5
34
;Also do
XMCHG
;$B1.PALLET_PLACE
36
L31
XJUMP
L32
L31: ;Assignment
;first argument
;first argument
XGTVAL
;$B1.PALLET
44
XTINVRT
;second argument
XGTNEW
XTTMUL
XCHNGE
;$B1._T5
34
XTERMINATE
L32: XMCLC
62
;$B1.PALLET_PLACE
36
;End of affixment
;Assignment
XGTVAL
;$B1.CARB_SPOT
46
XCHNGE
;$B1.CARB
32
;Affixment
;Assignment
XPUSH
L33
XCHNGE
;$B1._T6
26
XMCLC
56
;$B1.CARB
32
XMCLC
60
;$B1.CARB_GRASP
30
;End of affixment
;Assignment
XGTVAL
;$B1.CARB_SPOT
46
XCHNGE
;$B1.CARB
32
;Assignment
XGTVAL
;$B1.PALLET_SPOT
50
XCHNGE
;$B1.PALLET
44
;WHILE LOOP
L34: XPUSH
L36
XJUMPC
2
L35
;BLOCK
XMVAR
;
70
;
72
;
74
;
76
;
100
;
102
;
104
;
106
;
110
;
112
;$B2._T9
114
;$B2._T7
116
0
XMEXP
;BARM
14
;$B2._T9
114
0
L37
120
XJUMP
L40
L37: ;first argument
XGTVAL
;BARM
14
;second argument
XGTVAL
;$B2._T9
114
XTTMUL
XENDCLC
L40: XMEXP
;BARM
14
;$B2._T9
114
0
L41
122
XJUMP
L42
L41: ;first argument
XGTVAL
;BARM
14
;second argument
XGTVAL
;$B2._T9
114
XTTMUL
XENDCLC
L42: XMEXP
;$B1.PALLET
44
;$B2._T7
116
0
L43
124
XJUMP
L44
L43: ;first argument
XGTVAL
;$B1.PALLET
44
;second argument
XGTVAL
;$B2._T7
116
XTTMUL
XENDCLC
L44: XMEXP
;BARM
14
;$B2._T7
116
0
L45
126
XJUMP
L46
L45: ;first argument
XGTVAL
;BARM
14
;second argument
XGTVAL
;$B2._T7
116
XTTMUL
XENDCLC
L46: ;Move
XMOVE
L47
4
;Center
XCENTER
L51
14
;Affixment
;Assignment
;first argument
;first argument
XGTVAL
;BARM
14
XTINVRT
;second argument
XGTVAL
;$B1.CARB
32
XTTMUL
XCHNGE
;$B2._T7
116
;Also do
XMCHG
;$B1.CARB
32
L52
XJUMP
L53
L52: ;Assignment
;first argument
;first argument
XGTVAL
;BARM
14
XTINVRT
;second argument
XGTNEW
XTTMUL
XCHNGE
;$B2._T7
116
XTERMINATE
L53: XMCLC
126
;$B1.CARB
32
;End of affixment
;Move
;first argument
;first argument
XGTVAL
;$B1.PALLET_PLACE
36
;second argument
XPUSH
L54
XTVADD
;second argument
;first argument
XGTVAL
;$B2._T7
116
XTINVRT
XTTMUL
XCHNGE
;
110
;first argument
XGTVAL
;$B1.PALLET_PLACE
36
;second argument
;first argument
XGTVAL
;$B2._T7
116
XTINVRT
XTTMUL
XCHNGE
;
112
XMOVE
L55
4
;Move
XMOVE
L60
10
;Unfixment
XDCLC
126
;$B1.CARB
32
;Also do
XMCHG
;$B1.CARB
32
L61
XJUMP
L62
L61: ;Assignment
;first argument
;first argument
XGTVAL
;BARM
14
XTINVRT
;second argument
XGTNEW
XTTMUL
XCHNGE
;$B2._T7
116
XTERMINATE
L62: ;End of unfixment
;Affixment
;Assignment
;first argument
;first argument
XGTVAL
;$B1.PALLET
44
XTINVRT
;second argument
XGTVAL
;$B1.CARB
32
XTTMUL
XCHNGE
;$B2._T7
116
;Also do
XMCHG
;$B1.CARB
32
L63
XJUMP
L64
L63: ;Assignment
;first argument
;first argument
XGTVAL
;$B1.PALLET
44
XTINVRT
;second argument
XGTNEW
XTTMUL
XCHNGE
;$B2._T7
116
XTERMINATE
L64: XMCLC
124
;$B1.CARB
32
;End of affixment
;Move
XMOVE
L65
4
;Center
XCENTER
L67
14
;Affixment
;Assignment
;first argument
;first argument
XGTVAL
;BARM
14
XTINVRT
;second argument
XGTVAL
;$B1.PALLET
44
XTTMUL
XCHNGE
;$B2._T9
114
;Also do
XMCHG
;$B1.PALLET
44
L70
XJUMP
L71
L70: ;Assignment
;first argument
;first argument
XGTVAL
;BARM
14
XTINVRT
;second argument
XGTNEW
XTTMUL
XCHNGE
;$B2._T9
114
XTERMINATE
L71: XMCLC
122
;$B1.PALLET
44
;End of affixment
;Move
;first argument
;first argument
XGTVAL
;$B1.PALLET
44
;second argument
XPUSH
L72
XTVADD
;second argument
;first argument
XGTVAL
;$B2._T9
114
XTINVRT
XTTMUL
XCHNGE
;
102
;first argument
XGTVAL
;$B1.CARB_SPOT
46
;second argument
;first argument
XGTVAL
;$B2._T9
114
XTINVRT
XTTMUL
XCHNGE
;
104
XMOVE
L73
4
;Move
XMOVE
L76
10
;Unfixment
XDCLC
122
;$B1.PALLET
44
;Also do
XMCHG
;$B1.PALLET
44
L77
XJUMP
L100
L77: ;Assignment
;first argument
;first argument
XGTVAL
;BARM
14
XTINVRT
;second argument
XGTNEW
XTTMUL
XCHNGE
;$B2._T9
114
XTERMINATE
L100: ;End of unfixment
;Move
;first argument
XGTVAL
;$B1.PALLET_GRASP
42
;second argument
XPUSH
L101
XTVADD
XCHNGE
;
76
XMOVE
L102
4
;Center
XCENTER
L105
14
;Affixment
;Assignment
;first argument
;first argument
XGTVAL
;BARM
14
XTINVRT
;second argument
XGTVAL
;$B1.CARB
32
XTTMUL
XCHNGE
;$B2._T9
114
;Also do
XMCHG
;$B1.CARB
32
L106
XJUMP
L107
L106: ;Assignment
;first argument
;first argument
XGTVAL
;BARM
14
XTINVRT
;second argument
XGTNEW
XTTMUL
XCHNGE
;$B2._T9
114
XTERMINATE
L107: XMCLC
120
;$B1.CARB
32
;End of affixment
;Move
;first argument
;first argument
XGTVAL
;$B1.CARB
32
;second argument
XPUSH
L110
XTVADD
;second argument
;first argument
XGTVAL
;$B2._T9
114
XTINVRT
XTTMUL
XCHNGE
;
72
;first argument
XGTVAL
;$B1.PALLET_SPOT
50
;second argument
;first argument
XGTVAL
;$B2._T9
114
XTINVRT
XTTMUL
XCHNGE
;
74
XMOVE
L111
4
;Move
XMOVE
L114
10
;Unfixment
;End of unfixment
;Move
XMOVE
L115
4
;Assignment
XGTVAL
;$B1.PALLET
44
XCHNGE
;$B1.PALLET_SPOT
50
;Assignment
XGTVAL
;$B1.CARB
32
XCHNGE
;$B1.CARB_SPOT
46
;Block end cleanup
XKVAR
;
70
;
72
;
74
;
76
;
100
;
102
;
104
;
106
;
110
;
112
;$B2._T9
114
;$B2._T7
116
0
;End of BLOCK
XJUMP
L34
L35: ;END WHILE
;Block end cleanup
XKVAR
;
22
;$B1.INIT
24
;$B1._T6
26
;$B1.CARB_GRASP
30
;$B1.CARB
32
;$B1._T5
34
;$B1.PALLET_PLACE
36
;$B1._T4
40
;$B1.PALLET_GRASP
42
;$B1.PALLET
44
;$B1.CARB_SPOT
46
;$B1.PALLET_SPOT
50
;$B1.BASE
52
;$B1.BPARK1
54
0
;End of BLOCK
XENDP
;End of PROG